home *** CD-ROM | disk | FTP | other *** search
/ Internet News 2000 October / Internet News 2000-10 - CD-ROM.rar / IN200010.BIN / Browser / ie55 / IEAK5CD.EXE / 1033 / RCDATA / CABINET / response.asp < prev    next >
Text File  |  2000-07-13  |  1KB  |  31 lines
  1. <%@ Language=VBScript %>
  2.  
  3. <%
  4.     ' search holds the words typed in the Address Bar by the user,
  5.     ' without the "go" or "find" or any delimiters like "+" for spaces.
  6.     ' If the user typed "Apple pie," search = "Apple pie."
  7.     ' If the user typed "find Apple pie," search = "Apple pie."
  8.     search = Request.QueryString("MT")
  9.     search = UCase(search)
  10.     searchOption = Request.QueryString("srch")
  11.  
  12.     ' This is a simple if/then/else to redirect the browser to 
  13.     ' the site of your choice based on what the user typed.
  14.     ' Example: expense report -> intranet page about filling out an expense report
  15.     if (search = "NEW HIRE") then
  16.         Response.Redirect("http://admin/hr/newhireforms.htm") 
  17.     elseif (search = "LIBRARY CATALOG") then
  18.         Response.Redirect("http://library/catalog")
  19.     elseif (search = "EXPENSE REPORT") then
  20.         Response.Redirect("http://expense")
  21.     elseif (search = "LUNCH MENU") then
  22.         Response.Redirect("http://cafe/menu/")
  23.     else 
  24.         ' If there is not a match, use the default IE autosearch server
  25.         Response.Redirect("http://auto.search.msn.com/response.asp?MT=" + search + "&srch=" + searchOption + "&prov=&utf8")
  26.     end if
  27.  
  28. %>
  29.  
  30.  
  31.